Salut,
Je ne connais pas le .rangecells...
Le code suivant fonctionne pour moi :
Application.ScreenUpdating = False
With Sheets("Feuil1")
i = 2
Do While Cells(i, 1) <> ""
If Cells(i, 7).Value Like "*E*" Then
Cells(i, 16) = "toto"
ElseIf Cells(i, 7).Value Like "*D*" Then
Cells(i, 16) = "tata"
End If
i = i + 1
Loop
End With
Application.ScreenUpdating = True
Pour info, la fonction like est sensible aux accents et aux majuscules.