Traitement de données

Bonsoir,

Avez-vous une idée de l'erreur que contient ce code ?

merci d'avance

'Remplacer les cellules qui portent la lettre "M" par la lettre "H"

Sub texte_uniformesexe2()

Dim worksheet As worksheet

Dim workbook As workbook

For i = Range("A7") To Range("T184")

If worksheet("VDN_1bis").Range.["i"].Value = "M" Then

Range("i") = "H"

End If

Next

End Sub

Salut sd3nis,

ainsi, peut-être...

Sub texte_uniformesexe2()
'
Dim rCel As Range
'
For Each rCel In Worksheet("VDN_1bis").Range("A7:T184")
    If rCel.Value = "M" Then rCel.Value = "H"
Next
'
End Sub

A+