Bonjour chers tous
Je voudrais depuis ma feuille "SOURCE" alimenter mes feuilles 1 a 6
J'ai fais le code ci dessous:
Sub Transferer()
With Sheets("SOURCE")
Sheets(1).Range("A1:A10").Value = .[A2:A11].Value
Sheets(2).Range("A1:A10").Value = .[B2:B11].Value
Sheets(3).Range("A1:A10").Value = .[C2:C11].Value
Sheets(4).Range("A1:A10").Value = .[D2:D11].Value
Sheets(5).Range("A1:A10").Value = .[E2:E11].Value
Sheets(6).Range("A1:A10").Value = .[F2:F11].Value
End With
End Sub
Est-il possible de le réécrire plus simplement à l'aide d'une boucle ?
Merci