vba excel

Bonjour a tous et toutes
j'ai besoin de votre aide pour un macro pouvant extraire certaines cellules d'une plage sélectionnée ( par patient par exemple ) pour impression sous forme d’état.
j'ai demarrer avec le code suivant :
""
Public Sub Macro1()
Dim F As Object
'Dim B As Object
Dim B As Worksheet

Dim LI As Integer

Set F = Sheets("feuille1")
'Set B = Sheets("feuille2")
Set B = ActiveSheet
LI = ActiveCell.Row
If ActiveCell.Value <> "" And B.Cells(LI, 1).Value <> "" And B.Cells(LI, 2).Value <> "" Then
' F.Range("WA1:BY2").Cells(1).Value = B.Cells(LI, 9).Value

F.Range("F13:F13").Cells(1).Value = B.Cells(LI, 14).Value


F.Range("D8:E8").Cells(1).Value = B.Cells(LI, 2).Value

F.Range("D12:E12").Cells(1).Value = B.Cells(LI, 1).Value
F.Range("D13:E13").Cells(1).Value = B.Cells(LI, 3).Value
F.Range("D14:E14").Cells(1).Value = B.Cells(LI, 4).Value
F.Range("D15:E15").Cells(1).Value = B.Cells(LI, 5).Value
F.Range("D16:E16").Cells(1).Value = B.Cells(LI, 6).Value

F.Range("D20:E20").Cells(1).Value = B.Cells(LI, 14).Value

F.Range("D23:E23").Cells(1).Value = B.Cells(LI, 15).Value

'F.PrintOut
F.PrintPreview


Else: MsgBox "Veuillez remplir puis séléctionner la ligne qui contient les informations de l'agent concerné avant de lancer l'impression!"
End If

End Sub

""
Avec ce code chaque patient occupe une seule ligne alors maintenant le nombre de ligne pour un patient est aléatoirement dépendant du nombre d'examens demandé.

merci