Extension de code en VBA

Bonjour,

J'aimerais étendre le code suivant (qui est dans "Private Sub Worksheet_Change(ByVal Target As Range)"), aux cellules G10 à 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