salut "Marie,Chris"
et biensûr les autres
j'ai bidouillé ce petit morceau de code qui peu sûrement être amélioré
tu mets ce code dans VBA (Alt+F11)dans la partie code de ta feuil1
tu mets un bouton sur ta feuil1 et tu lies la macro celluleBlanche à ce bouton
Sub celluleBlanche()
Dim L As Integer
Dim cell As Range, maplage As Range
Dim temp1 As String
Range("A8").Select 'Cellule de debut de colonne
temp1 = ActiveCell.Value
L = Range("A65535").End(xlUp).Row
Set maplage = Worksheets("Feuil1").Range("A8:A" & L)'plage de rechervche
For Each cell In maplage
If ActiveCell.Offset(1, 0).Value = temp1 Then
ActiveCell.Offset(1, 0).ClearContents
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
If ActiveCell = "" Then Exit Sub
temp1 = ActiveCell.Value
End If
Next
End Sub
A+++
Jean Marie