copier dans la premiere cellule vide d'une colonne

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Range
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("G8:IU10")) Is Nothing Then
    With Sheets("Feuil2")
        Set x = .Range("B8:B271").Find("", .Range("B271"), xlValues, , 1, 1, 0)
        If Not x Is Nothing Then Target.Copy x
    End With
End If
End Sub

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Range
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("G8:IU10")) Is Nothing Then
    With Sheets("Feuil2")
        Set x = .Range("B8:B271").Find("", .Range("B271"), xlValues, , 1, 1, 0)
        If Not x Is Nothing [COLOR="Blue"]Then x.Value = Target.Value[/COLOR]
    End With
End If
End Sub