For x = 2 To Sheets("RÉCAPITULATIF").Range("C65536").End(xlUp).Row
If Sheets("RÉCAPITULATIF").Cells(x, 8) <> "" And Sheets("RÉCAPITULATIF").Cells(x, 8) < 2 Then
With Me.ListBox1 'prend en compte la ListBox1
.AddItem Sheets("RÉCAPITULATIF").Cells(x, 3) 'ajoute de la 4 ligne de la 3 colonnes
.Column(1, .ListCount - 1) = Sheets("RÉCAPITULATIF").Cells(x, 5) 'ajoute de la 5 ligne de la 5 colonnes
.Column(2, .ListCount - 1) = Sheets("RÉCAPITULATIF").Cells(x, 6)
.Column(3, .ListCount - 1) = Sheets("RÉCAPITULATIF").Cells(x, 7)
.Column(4, .ListCount - 1) = Round(Sheets("RÉCAPITULATIF").Cells(x, 8), 2) '///
.Column(5, .ListCount - 1) = Sheets("RÉCAPITULATIF").Cells(x, 30)
.Column(6, .ListCount - 1) = Sheets("RÉCAPITULATIF").Cells(x, 32)
.Column(7, .ListCount - 1) = Sheets("RÉCAPITULATIF").Cells(x, 31)
End With 'fin de la prise en compte de la ListBox1
End If
Next x