Private Sub CommandButton1_Click()
Dim Tablo, OK As Boolean, Plage As Range, i As Long, j As Long, k As Long
With Worksheets("Feuil1")
Tablo = Range("C4:F" & .Range("A" & Rows.Count).End(xlUp).Row) ' à adapter
For i = LBound(Tablo, 1) To UBound(Tablo, 1)
OK = False
x = 0
For j = LBound(Tablo, 2) To UBound(Tablo, 2)
If Tablo(i, j) <> "" Then x = x + 1
Next
If x > 0 Then
While OK = False
For j = LBound(Tablo, 2) To UBound(Tablo, 2) - 1
If Tablo(i, j) = "" Then
temp = Tablo(i, j)
Tablo(i, j) = Tablo(i, j + 1)
Tablo(i, j + 1) = temp
End If
Next
For k = 1 To x
OK = True
If Tablo(i, k) = "" Then OK = False
Next
Wend
End If
Next
.Range("C4").Resize(UBound(Tablo, 1), UBound(Tablo, 2)) = Tablo
End With
End Sub