Renommer un groupe d'onglet

Salut les Kracks,

Je souhaiterai savoir si il est possible de nommer plusieurs feuille de mon classeur en une variable (ou procédure?) afin de raccourcir ma macro, du genre (très mauvais je sais mais c'est là que vous intervenez ;-):

Code:

---

1 2 3 4

Dim mavariable as sheet mavariable = (mafeuille2;mafeuille6;etc...) For each mavariable "dans chaque feuilles représentées par ma variable et non toutes celles du classeur and for each cellsvalue <> "" in Range("P10:P")& Range("h6").Value + 9) " je souhaiterai copier sur une nouvelle feuille la ligne entière si une valeur se trouve dans une cellule (ou plusieurs qui ne sont pas forcément consécutives) défini en Range("P10:P")& Range("h6").Value + 9)

---

Pour scinder, je veux créer un rapport me permettant d'obtenir toutes les lignes dont il y a un contenu dans une colonne spécifiée et pour un certain nombre d'onglet!
Espérant vous avoir été le plus clair possible,

Un début

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim TabSht Dim c As Range Dim i As Integer Dim k As Long   TabSht = Array("Feuil1", "Feuil3", "Feuil4") For i = LBound(TabSht) To UBound(TabSht) With Sheets(TabSht(i)) k = .Cells(Rows.Count, "P").End(xlUp).Row For Each c In .Range("P10:P" & k) 'traitement Next c End With Next i

---

Merci beaucoup Mercatog,

Je vais m'atteler à la copie de la ligne entière :ccool: