Besoin d'aide pour des algorithme

Bonjour,
S'il vous plaît aidé moi je n'arrive pas à traduire mon VBA en algo et en plus j'en ai beaucoup à faire.
Merci.Private Sub recap()
i = 2
Workbooks("HORSESHOP").Sheets("Recap").Activate
While ActiveSheet.Cells(i, 1).Value <> ""
i = i + 1
Wend
ActiveSheet.Cells(i, 1).Value = ZT_nfact
ActiveSheet.Cells(i, 2).Value = ZL_client
ActiveSheet.Cells(i, 3).Value = ZT_date
ActiveSheet.Cells(i, 4).Value = ZT_1
ActiveSheet.Cells(i, 5).Value = ZT_2
ActiveSheet.Cells(i, 6).Value = ZT_3
ActiveSheet.Cells(i, 7).Value = ZT_4
ActiveSheet.Cells(i, 8).Value = ZT_5
ActiveSheet.Cells(i, 9).Value = ZT_6
ActiveSheet.Cells(i, 10).Value = ZT_7
ActiveSheet.Cells(i, 11).Value = ZT_8
ActiveSheet.Cells(i, 12).Value = ZT_9
ActiveSheet.Cells(i, 13).Value = ZT_10
ActiveSheet.Cells(i, 14).Value = ZT_11
ActiveSheet.Cells(i, 15).Value = ZT_12
ActiveSheet.Cells(i, 16).Value = ZT_13
ActiveSheet.Cells(i, 17).Value = ZT_14
ActiveSheet.Cells(i, 18).Value = ZT_15
ActiveSheet.Cells(i, 19).Value = ZT_16
ActiveSheet.Cells(i, 20).Value = ZT_17
ActiveSheet.Cells(i, 21).Value = ZT_18
ActiveSheet.Cells(i, 22).Value = ZT_19
ActiveSheet.Cells(i, 23).Value = ZT_20




LE SUIVANT

Public Sub plusrien()
ZT_reglement = ""
ZT_nfact = ""
ZT_date = ""
ZL_client = ""
ZT_1 = ""
ZT_2 = ""
ZT_3 = ""
ZT_4 = ""
ZT_5 = ""
ZT_6 = ""
ZT_7 = ""
ZT_8 = ""
ZT_9 = ""
ZT_10 = ""
ZT_11 = ""
ZT_12 = ""
ZT_13 = ""
ZT_14 = ""
ZT_15 = ""
ZT_16 = ""
ZT_17 = ""
ZT_18 = ""
ZT_19 = ""
ZT_20 = ""


LE SUIVANT

Public Sub ecriturefacture()
i = 19
Workbooks("HORSESHOP").Sheets("Facture").Activate


If (ZT_1 <> "") Then
ActiveSheet.Cells(i, 3).Value = ZT_1
ActiveSheet.Cells(i, 1).Value = "A1"
i = i + 1
End If
If (ZT_2 <> "") Then
ActiveSheet.Cells(i, 3).Value = ZT_2
ActiveSheet.Cells(i, 1).Value = "B1"
i = i + 1
End If
If (ZT_3 <> "") Then
ActiveSheet.Cells(i, 3).Value = ZT_3
ActiveSheet.Cells(i, 1).Value = "B2"
i = i + 1
End If
If (ZT_4 <> "") Then
ActiveSheet.Cells(i, 3).Value = ZT_4
ActiveSheet.Cells(i, 1).Value = "B3"
i = i + 1
End If
If (ZT_5 <> "") Then
ActiveSheet.Cells(i, 3).Value = ZT_5
ActiveSheet.Cells(i, 1).Value = "C1"
i = i + 1
End If
If (ZT_6 <> "") Then
ActiveSheet.Cells(i, 3).Value = ZT_6
ActiveSheet.Cells(i, 1).Value = "C2"
i = i + 1
End If
If (ZT_7 <> "") Then
ActiveSheet.Cells(i, 3).Value = ZT_7
ActiveSheet.Cells(i, 1).Value = "E1"
i = i + 1
End If
If (ZT_8 <> "") Then
ActiveSheet.Cells(i, 3).Value = ZT_8
ActiveSheet.Cells(i, 1).Value = "E2"
i = i + 1
End If
If (ZT_9 <> "") Then
ActiveSheet.Cells(i, 3).Value = ZT_9
ActiveSheet.Cells(i, 1).Value = "E3"
i = i + 1
End If
If (ZT_10 <> "") Then
ActiveSheet.Cells(i, 3).Value = ZT_10
ActiveSheet.Cells(i, 1).Value = "H1"
i = i + 1
End If
If (ZT_11 <> "") Then
ActiveSheet.Cells(i, 3).Value = ZT_11
ActiveSheet.Cells(i, 1).Value = "L1"
i = i + 1
End If
If (ZT_12 <> "") Then
ActiveSheet.Cells(i, 3).Value = ZT_12
ActiveSheet.Cells(i, 1).Value = "L2"
i = i + 1
End If
If (ZT_13 <> "") Then
ActiveSheet.Cells(i, 3).Value = ZT_13
ActiveSheet.Cells(i, 1).Value = "M1"
i = i + 1
End If
If (ZT_14 <> "") Then
ActiveSheet.Cells(i, 3).Value = ZT_14
ActiveSheet.Cells(i, 1).Value = "M2"
i = i + 1
End If
If (ZT_15 <> "") Then
ActiveSheet.Cells(i, 3).Value = ZT_15
ActiveSheet.Cells(i, 1).Value = "P1"
i = i + 1
End If
If (ZT_16 <> "") Then
ActiveSheet.Cells(i, 3).Value = ZT_16
ActiveSheet.Cells(i, 1).Value = "R1"
i = i + 1
End If
If (ZT_17 <> "") Then
ActiveSheet.Cells(i, 3).Value = ZT_17
ActiveSheet.Cells(i, 1).Value = "S1"
i = i + 1
End If
If (ZT_18 <> "") Then
ActiveSheet.Cells(i, 3).Value = ZT_18
ActiveSheet.Cells(i, 1).Value = "S2"
i = i + 1
End If
If (ZT_19 <> "") Then
ActiveSheet.Cells(i, 3).Value = ZT_19
ActiveSheet.Cells(i, 1).Value = "S3"
i = i + 1
End If
If (ZT_20 <> "") Then
ActiveSheet.Cells(i, 3).Value = ZT_20
ActiveSheet.Cells(i, 1).Value = "T1"
i = i + 1
End If

ActiveSheet.Cells(16, 2).Value = ZT_date
ActiveSheet.Cells(8, 4).Value = ZL_client
ActiveSheet.Cells(16, 1).Value = ZT_nfact
ActiveSheet.Cells(46, 3).Value = ZT_reglement

End Sub

ET ENFIN

Public Sub plusrien2()

Workbooks("HORSESHOP").Sheets("Facture").Activate

k = 19
While k <= 39
ActiveSheet.Cells(k, 1).Value = ""
ActiveSheet.Cells(k, 3).Value = ""
k = k + 1
Wend
ActiveSheet.Cells(16, 2).Value = ""
ActiveSheet.Cells(8, 4).Value = ""
ActiveSheet.Cells(16, 1).Value = ""
ActiveSheet.Cells(46, 3).Value = ""
End Sub

MERCI VRAIMENT BEAUCOUP BEAUCOUP