Transfert de données automatique d'un onglet à un autre

Private Sub CommandButton1_Click()
' Boucle de lecture de la colonne B de la feuille "suivi véhicule"
' Lire chaque cellule ("cel" est un nom de variable qui représente la cellule en cours de lecture)
' Cette boucle ne lit que les cellules qui contiennent une valeur (SpecialCells(xlCellTypeConstants))
For Each cel In Sheets("suivi véhicule").Range("B:B").SpecialCells(xlCellTypeConstants)
  ' Teste le contenu de la cellule3
  ' Pour éviter les différences de caractères, on transforme le contenu de "cel" en majuscules (UCase)
  If UCase(cel.Value) = "RESTITUTION" Then
    ' Si le contenu de "cel" est égal à "RESTITUTION" alors on effectue les instructions contenues ente If Then et End If
    With Sheets("restitution")
    ' Les références de cellules précédées d'un point s'appliquent à la feuille "restitution"
      ' On affecte à la variable "lg" le numéro de la 1ère ligne vide en colonne B de la feuille "restitution"
      ' Pour ce faire, on remonte du bas de la feuille ("B65536") jusqu'à la dernière cellule remplie ("End(xlUp).Row")
      ' et on ajoute 1 pour obtenir le numéro de la ligne vide située en-dessous
      lg = .Range("B65536").End(xlUp).Row + 1
      ' Boucle de lecture des colonnes A à D de la feuille "suivi véhicule"
      For cl = 1 To 5
        ' On affecte la valeur de la cellule lue à la cellule homonyme de la feuille "restitution"
        .Cells(lg, cl) = Sheets("suivi véhicule").Cells(cel.Row, cl)
        ' puis on efface la cellule lue sur la feuille "suivi véhicule"
        Sheets("suivi véhicule").Cells(cel.Row, cl) = ""
      Next
    End With
  End If
Next
End Sub