Bonsoir à tous,
Etant néophyte dans le monde du VBA, je requiert votre aide
Sous excel, j'ai créer 12 feuilles, qui représentent les 12 mois de l'année.
Dans chaque feuille, je note mon planning jour par jour. J'ai créer aussi une treizième feuille qui regroupe tous mes jours de congés et autres.....
Via diverses tutos trouvés sur le net, j'arrive à transférer mes jours, tapé dans la feuille janvier, dans la 13eme feuille, avec une macro.

Avec un module:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Public arr
 
Sub ajouter_une_ligne()
Dim ligne As Long
Sheets(13).Activate
ligne = Columns(1).Find("", [A1], , , xlByRows).Row
Range(Cells(ligne, 1), Cells(ligne, 3)) = arr
Sheets(1).Activate
End Sub
et dans le feuile 1 (janvier):
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Intersect(Target, Range("C2")) Is Nothing Then: End
If Application.CountA(Range("A2:C2")) < 3 Then: End
arr = Range("A2:C2").Value
ajouter_une_ligne
Range("A2:C2").ClearContents
Range("A2").Select
End Sub
Jusqu'à là tout va bien.

Le soucis est que je voudrais faire la même chose pour les autres feuilles (mois). Que dans chaque mois, les jours saisis aillent dans la feuille 12 avec la macro. Mais je me heurte à un mur.

Désolé pour le roman, mais y aurait-il quelqu'un qui pourrait m'aider svp?

Merci par avance