Formulaire pour transfert de donnees

Sub Valider()
    Dim c As Range
    Application.ScreenUpdating = False
    Dim nomfeuil As String
    With Sheets("FORMULAIRE")
        For Each c In .Range("C4:C22")
            If c <> "" Then
                nomfeuille = c
                Sheets(nomfeuille).Unprotect
                With c.Offset(, -1).Resize(, 7)
                    Sheets(nomfeuille).Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 7).Value = .Value
                    .ClearContents
                End With
                Sheets(nomfeuille).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
            End If
        Next
    End With
    Application.ScreenUpdating = True
End Sub