Sub Macro1()
Dim R As Worksheet 'déclare la variable R (onglet Recap)
Dim TV As Variant 'déclare la varaible TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Set R = Worksheets("recap") 'définit l'onglet R
TV = R.Range("A2").CurrentRegion 'définit le tableau de valeurs TV
For I = UBound(TV, 1) To 2 Step -1 'boucle inversée de la dernière ligne du tableau des valeurs TV à la ligne 2
If TV(I, 1) = "" Then R.Rows(I + 1).Delete 'si la donnée ligne I colonne 1 de TV est vide, supprime la ligne I + 1
Next I 'prochaine ligne de la boucle
End Sub