Remplissage automatique via VBA

Bonjour,

je voudrais compléter les informations les lignes de la feuille suivi avec les informations replient dans MAJ après validation via le bouton

Bonjour. 1re proposition (attention, il y a un espace inutile à la fin des noms des onglets). Je les ai respectés, mais... :

Option Explicit

Private Sub CommandButton1_Click()
    Dim wS1 As Worksheet, wS2 As Worksheet
    Dim i As Long, nL As Long

    Set wS1 = Sheets("MAJ ")
    Set wS2 = Sheets("Suivi ")

    ' Recherche de la ligne à mettre à jour
    nL = wS2.Cells(Rows.Count, "A").End(xlUp).Row
    For i = 3 To nL
        If wS2.Cells(i, 1) = wS1.Cells(2, 4) Then
            wS2.Cells(i, 4) = wS1.Cells(14, 4)
            wS2.Cells(i, 5) = wS1.Cells(5, 4)
            wS2.Cells(i, 6) = wS1.Cells(16, 4)
            wS2.Cells(i, 7) = wS1.Cells(13, 7)
            wS2.Cells(i, 8) = wS1.Cells(15, 7)
            wS2.Cells(i, 9) = wS1.Cells(19, 2)
            wS2.Cells(i, 10) = wS1.Cells(26, 4)
            wS2.Cells(i, 11) = wS1.Cells(26, 7)
            wS2.Cells(i, 12) = wS1.Cells(26, 10)
            wS2.Cells(i, 13) = wS1.Cells(28, 4)
            wS2.Cells(i, 14) = wS1.Cells(28, 7)
        End If
    Next i
End Sub

Merci mais je débute en VBA pourquoi i=3

Parce qu'il faut chercher la ligne contenant le bon n° d'ordre dans la feuille "Suivi " en commençant par la 3.

merci beaucoup

De rien. Bonne découverte.