Bonsoir Gérard, bonsoir le Forum,
Je reviens enfin vers vous pour vous communiquer la solution (une partie du code) que j'ai finalement appliquée :
'Effacement N° des doublons :
For Each cell In Plage
If cell = cell.Offset(1, 0) And cell = cell.Offset(2, 0) And cell.Offset(0, 1) = cell.Offset(2, 1) Then
Union(cell, cell.Offset(1, 0), cell.Offset(2, 0)).Clear
ElseIf cell = cell.Offset(1, 0) Then
If cell.Offset(0, 1) = cell.Offset(1, 1) Then
If cell.Offset(0, 15) = 'C' And cell.Offset(1, 15) = 'M' Then
Union(cell, cell.Offset(1, 0)).Clear
End If
End If
ElseIf cell.Offset(0, 15) = 'ST' Then
cell.Clear
End If
Next cell
'Suppression des enregistrements
Plage.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
En fait, j'identifie les doublons, j'efface leur numéro puis je supprime les lignes dont le numéro est blank.
Merci Gérard pour la piste des couleurs, cela m'a été grandement utile !
Janko