Sub test()
Dim i As Integer, compteur As Integer
compteur = 0
With ThisWorkbook.Sheets("Feuil1")
For i = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
If .Range("A" & i).Text = "#CREP" Then compteur = compteur + 1
If .Range("A" & i).Text Like "DISTRIBUTEUR*" Then .Range("A" & i).Value = "DISTRIBUTEUR" & compteur
Next i
End With
End Sub