Boucle Copier Coller

Bonjour ,

Je débute en VBA excel , ce que je cherche à faire doit être simple mais je ne suis pas très habitué au boucle.

J'ai déjà mon code mais je cherche à l'améliorer pour qu'il fasse moins de ligne et la solution est une boucle je pense.

Voici mon code :

Sheets("Feuil1").Select

Range("M1").Select

Selection.Copy

Sheets("Onglet1").Select

Range("C1").Select

ActiveSheet.Paste

Sheets("Feuil2").Select

Range("M1").Select

Selection.Copy

Sheets("Onglet1").Select

Range("D1").Select

ActiveSheet.Paste

Sheets("Feuil3").Select

Range("M1").Select

Selection.Copy

Sheets("Onglet1").Select

Range("E1").Select

ActiveSheet.Paste

Sheets("Feuil4").Select

Range("M1").Select

Selection.Copy

Sheets("Onglet1").Select

Range("f1").Select

ActiveSheet.Paste

Merci d'avance pour votre aide !

Bonjour et bienvenue Nicokay ,

Voici un code à essayer:

Sub test()
Dim c As Worksheet

    For Each c In Worksheets
        If c.Name <> "Onglet1" Then
           Sheets(c.Name).Cells(1, 14).Copy Destination:=Worksheets("Onglet1").Cells(1, 2 + CInt(Right(c.Name, 1)))
        End If
    Next c

End Sub