Sub PaiementOK()
'initialisation de variables
Dim Derli As Long
Dim C As Range
' recherche de la dernière cellule de la colonne 1
Derli = Columns(1).Find("*", , , , , xlPrevious).Row
' boucle sur la plage A2:Ax
For Each C In Range("A2:A" & Derli)
' si la valeur de la cellule en minuscule est paiement
' comme ça tu ne te soucie pas des differentes casses possibles
' Paiement, PAIEMENT, paiement, PaIEmeNt, etc
' alors on inscrit "OK" sur la même ligne (1), la colonne de droite (2)
If LCase(C.Value) = "paiement" Then C(1, 2) = "OK"
'cellule suivante
Next C
'fin de procédure
End Sub