Extension code VBA

Bonjour,

J'aimerais étendre le code suivant (qui est dans "Private Sub Worksheet_Change(ByVal Target As Range)"), aux cellules F10 à G30 de façon propre sans avoir à le recopier x fois.

If Not Intersect(Target, Range("F10:G10")) Is Nothing Then

If Range("G10") <> "" Then

For Each xCell In Range("F10:G10")

If xCell = "" Then xCell = [G10]

Next xCell

End If

End If

J'ai essayé la solution ci-dessous (dans "Private Sub Worksheet_Change(ByVal Target As Range)"), mais cela me renvoie un "Run-time error '13' type mismatch".

for count = 10 to 30

If Not Intersect(Target, Range("F" & count & ":G" & count)) Is Nothing Then

If Range("G" & count) <> "" Then

For Each xCell In Range("F" & count & ":G" & count)

If xCell = "" Then xCell = [G & count]

Next xCell

End If

End If

next

J'aurais besoin d'un peu d'aide pour démêler ça.

Merci à vous

Bonsoir

A vérifier

C'est parfait, merci beaucoup.