Rajout d'un chiffre dans plusieurs cellules

n'oublies pas

Bonjour,

Dans ce cas, il n'y a plus besoin de contrôler la présence du 49

Sub Ajoute49()
Dim Lg%, i%
    Application.ScreenUpdating = False
    Lg = Range("E65536").End(xlUp).Row
        For i = 2 To Lg
            If Cells(i, "E") <> "" Then Cells(i, "F") = "49" & Cells(i, "E")
        Next i
End Sub

Amicalement

Claude