Sub Créer_objectifs_CC()
Application.ScreenUpdating = False 'ne pas voir ce qui se passe à l'écran, diminue besoin mémoire
For lgn = 2 To 24 'pour boucler sur les lignes 2 à 24
Sheets("Ref").Select 'on se place sur la feuille de référence
indic = Cells(lgn, 1).Value 'on variabilise, indic = cellule ligne de la boucle, colonne 1
Sheets("Recap Objectif CC").Select ''on se place sur la feuille où se trouve la BD
Range("e1").Select 'on choisit un indicateur dans filtre automatique
Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:=indic ‘ l’indicateur se trouve en colonne 5
Range("A1:R1500").Select
Range("R1500").Activate
Selection.Copy
Sheets.Add After:=Worksheets(Worksheets.Count) 'on ajoute un onglet après les 2 premières feuilles
ActiveSheet.Name = indic 'on nomme l'onglet comme nom indicateur
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False ' on colle
Next lgn ' on continue sur 2nd, 3èm.. indicateur (boucle)
Application.ScreenUpdating = True
End Sub