Sub test()
Dim i%, j%, k%, Dl%
Dl = Range("a1").CurrentRegion.Rows.Count 'n° de la dernière ligne non vide de la colonne A
For i = 2 To Dl 'boucle sur les lignes
k = 17 'variable colonne
For j = 1 To 15 'boucle sur les colonnes
If Cells(i, j) <> "" Then 'si la cellule n'est pas vide
Cells(i, k) = Cells(i, j) 'je recopie en colonne Q
k = k + 1 'je me déplace d'une colonne
End If
Next j
Next i
doublons 'éxécute la macro doublons
End Sub
Sub doublons()
Dim i%, j%, k%, Dl%, Dc%, col%
Dl = Range("q1").CurrentRegion.Rows.Count 'n° de la dernière ligne non vide de la colonne Q
For i = 2 To Dl 'boucle sur les lignes
Dc = Cells(i, Columns.Count).End(xlToLeft).Column 'n° de la dernière colonne non vide de la ligne I
col = 18
For j = 17 To Dc 'boucle sur la colonne
For k = col To Dc 'boucle sur la colonne + 1
If Cells(i, j).Value = Cells(i, k).Value Then 'si les deux valeurs sont identiques
Cells(i, k).Delete Shift:=xlToLeft 'je supprime la cellule vers la gauche
End If
Next k
col = col + 1
Next j
Next i
End Sub
J’ ai copier le code que tu m’as envoyé ça marche super c’est trop cool
merci beaucoup !!!
par contre pour moi c’est du chinois alors je vais bosser pour apprendre
les macros au moins la base.