Sub Macro1()
Dim RF As Worksheet 'déclare la variable RF (onglet Remise de Facture école)
Dim LP As Worksheet 'déclare la variable LP (onglet Liste de Pointage des commandes)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim PLV As Integer 'déclare la variable PLV (Première Ligne Vide)
Set RF = Worksheets("Remise Facture école") 'définit l'onglet RF
Set LP = Worksheets("Liste de pointage des commandes") 'définit l'onglet LP
TV = LP.Range("I1:L368") 'définit le tableau des valeurs TV
For I = 4 To 368 'boucle sur toutes les lignes I du tableau des valeurs (en partant de la ligne 4)
If TV(I, 1) <> "" Or TV(I, 4) <> 0 Then 'si la donnée ligne I colonne 1 de TV n'est pas vide ou si la donnée ligne I colonne 4 de TV n'est pas vide
PLV = IIf(RF.Range("B44:C44")(1) = "", 44, RF.Range("B43:C43").End(xlDown).Row + 1) 'définit la première ligne vide PLV de la colonne B de l'ongelt RF
RF.Cells(PLV, "B").Value = LP.Cells(I, "A").Value & " " & LP.Cells(I, "B").Value & " " & LP.Cells(I, "C").Value 'renvoie le nom
RF.Cells(PLV, "D").Value = LP.Cells(I, "J").Value 'renvoie la banquie
RF.Cells(PLV, "F").Value = IIf(LP.Cells(I, "I").Value <> "", LP.Cells(I, "K").Value, LP.Cells(I, "L").Value) 'renvoie la valeur
End If 'fin de la condition
Next I 'prochaione ligne de la boucle
End Sub