Bonjour,
je ne suis que débutant en VBA mais voici un petit code:
Sub Macro1()
Dim motclef As String
Dim longchaine As Integer
Dim i As Integer
Dim ncol As Integer
ncol = Application.CountA(Range("B:B"))
motclef = InputBox("Quel est votre mot clef ?")
longchaine = Len(motclef)
For i = ncol To 2 step -1
If Left(Cells(i, 2), longchaine) = motclef Then Cells(i, 2) = motclef
Next
'
End Sub
Il y a certainement plus simple mais je laisse le soin aux personnes plus expertes que moi de te répondre.
Cordialement.