Sub distrib()
Set Tab1col1 = Sheets("Feuil1").Range("A3:A23")
Set Tab1col2 = Sheets("Feuil1").Range("B3:B23")
Set Tab1col3 = Sheets("Feuil1").Range("C3:C23")
Set Tab1col4 = Sheets("Feuil1").Range("D3:D23")
For I = 1 To 3 Step 1
For Each elecol1 In Tab1col1
If elecol1 <> "" Then
For Each elecol2 In Tab1col2
If elecol2 <> "" Then
For Each elecol3 In Tab1col3
If elecol3 <> "" Then
If I = 3 Then
elefinal = elecol1 & " " & elecol2 & " " & elecol3
Sheets("Feuil3").Range("A65536").End(xlUp).Offset(1, 0) = elefinal
Else
For Each elecol4 In Tab1col4
If elecol4 = "" Then Exit For
elefinal = elecol1 & " " & elecol2 & " " & elecol3 & " " & elecol4
Sheets("Feuil3").Range("A65536").End(xlUp).Offset(1, 0) = elefinal
' MsgBox elefinal
Next elecol4
End If
End If
Next elecol3
End If
Next elecol2
End If
Next elecol1
Set Tab1col1 = Sheets("Feuil1").Range("A3:A23").Offset(0, 5 * I)
Set Tab1col2 = Sheets("Feuil1").Range("B3:B23").Offset(0, 5 * I)
Set Tab1col3 = Sheets("Feuil1").Range("C3:C23").Offset(0, 5 * I)
Set Tab1col4 = Sheets("Feuil1").Range("D3:D23").Offset(0, 5 * I)
Next I
End Sub