Excel Remplissage Automatique

Option Explicit 

Private Sub Worksheet_Change(ByVal Target As Range) 
'Ne fait rien si : 
    '- la cellule concernée n'est pas K7 
    '- Plusieurs cellules sont sélectionnées (inutile, je sais...) 
    '- si la cellule est vide 
If Target.Address <> "$K$7" Or Target.Count > 1 Then Exit Sub 
'Ne fait rien si la cellule est vide 
If Target.Value = "" Then Exit Sub 
'Si le contenu de K7 (Target) mis en majuscule est un X alors 
If UCase(Target.Value) = "X" Then 
    'vérifie si la plage C7:J7 contient au moins une valeur en C 
    If Sheets("Feuil2").Range("C7") <> "" Then 
        'on copie la plage C7:J7 
        Sheets("Feuil2").Range("C7:J7").Copy 
        'On fait un collage spécial valeurs dans la première ligne vide Feuil1 
        Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues 
        'on efface le contenu de la plage C7:K7 
        Sheets("Feuil2").Range("C7:K7").ClearContents 
        'et on sélectionne C7 
        Sheets("Feuil2").Range("C7").Select 
    'Si C7 est vide et K7 contient un X 
    Else 
        'Message à l'utilisateur 
        MsgBox "Vous devez compléter au moins le champ NOM." 
        'Effacement du X 
        Sheets("Feuil2").Range("K7").ClearContents 
        'et on sélectionne C7 
        Sheets("Feuil2").Range("C7").Select 
    End If 
End If 
End Sub