Bonjour Banzai64
Je te remercie énormément c'est exactement ce que je voulais. Pour les deux mois de décembre seulement 1 est actif, le second. Seulement je voudrais comprendre le fonctionnement de la fonction:
Sub RecopieMois()
Dim J As Long, Ligne As Long
Application.ScreenUpdating = False
For J = 3 To Range("B" & Rows.Count).End(xlUp).Row
RecopieRH (J)
Next J
End Sub
'Cela fait partir a partir de la ligne 3 mais comment retrouver le nom des équipes ?
Ligne = (Month("1/" & Range("A1")) * 9) + 3 + Right(Range("B" & Lg), 1)
' Celui ci recherche le mois et descend du nombre de ligne en fonction de l'équipe , non?