voila ce que j ai fait ca fonctionne mais que sur une colonne
je souhaiterai un de pouce pour faire une boucle sur toutes les colonnes
Sub ddd()
Dim i As Integer
For i = [A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "CD5279" Then 'ams1
i = i - 1
Cells(i, 1).Value = "XXX"
End If
Next i
End Sub