ExcelBanter - combinations

how to

thank you

Bonjour
Je voudrais faire des champs réduits avec les chiffres ayant les mêmes bases

ci dessous macro incomplete

merci

ma macro incomplete
1 er 2 ème 3 ème 4 ème Le résultat voulu
1 2 3 4 1 2 3 4 1 2 3 4 7
1 2 3 7 1 2 3 7 Vide
1 2 14 18 1 2 14 18 1 2 14 18 4 10
1 2 4 10 1 4 2 10 Vide
1 3 4 13 1 3 4 13 1 3 4 13
1 5 15 16 1 5 15 16 1 5 15 16
1 4 6 9 1 4 6 9 1 4 6 9
1 2 3 11 1 11 2 3 1 2 3 11
1 3 5 11 1 3 5 11 1 3 5 11
1 2 8 12 1 2 8 12 1 2 8 12
1 8 15 16 1 8 15 16 1 8 15 16
1 2 5 7 1 2 5 7 1 2 5 7
2 3 7 15 2 3 7 15 2 3 7 15
2 4 6 10 2 4 6 10 2 4 6 10 16
2 4 6 16 2 4 6 16 Vide
2 3 5 7 2 3 5 7 etc
2 6 9 13 2 6 9 13

Sub Macro1()

Dim lig
Dim col

For col = 6 To 9
For lig = 5 To 210

If Cells(lig, col) = Cells(lig + 1, col) Then
Cells(lig, col + 6) = Cells(lig, col)

Else
For I = 1 To 1
Cells(lig, col + 10) = Cells(lig, col)
Next

End If

Next
Next

End Sub