Sub TrouvEffacCellul()
Dim cell As Variant
Dim plage As Range 'je declare plage qui est une selection
Dim X, Y As Integer
Set plage = ThisWorkbook.Worksheets("Feuil1").Range("b2:v22") 'plage est egale a la selection b2,v22 du classeur actuel, de la feuille1
On Error Resume Next
For X = 2 To Range("b1").End(xlToRight).Column
For Each cell In plage 'pour tout les cellules de la plage
For Y = 2 To 22
If cell.Value = Cells(1, X).Value And cell.Value = Cells(Y, 1) Then cell.Interior.ColorIndex = 35 '.Delete Shift:=xlToLeft 'la cellule sera suprime et decale sur la gauche
' If cell.Value = Cells(1, X).Value And cell.Value = Cells(Y, 1) Then cell.Delete Shift:=xlToLeft 'la cellule sera suprime et decale sur la gauche
Next Y
Next cell 'cellule suivante
Next X
End Sub