bonjour à tous,
ce code (que je ne maîtrise pas du tout) me permet de copier les 5 premières colonnes sur chaque feuille dont le nom correspondant est en colonne 2.
j'aimerai, au lieu de copie que les 5 premières, copier les 7 premières colonnes...???
Lol
Sub extraction()
Application.ScreenUpdating = False
Dim Ws1 As Worksheet
Dim Zone As Range
Set Ws1 = Sheets("données")
Set Zone = Ws1.Range("A1:E" & [A65000].End(xlUp).Row)
For i = 2 To Sheets.Count
With Sheets(i)
.[F2].FormulaR1C1 = "=données!RC[-4]=""" & Right(Sheets(i).Name, 3) & """"
Zone.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("F1:F2"), CopyToRange:=.Range("A1:E1"), Unique:=False
.[F2].ClearContents
End With
Next i
Application.ScreenUpdating = True
End Sub