Sub Vider()
Dim i As Long, NF As String, Dte As Date, Lig As Long
For i = 1 To 100 'Boucle jusqu'à la feuille n°100
NF = Format(i, "00") 'Nom de feuille sur 2 positions
If FeuilExist(NF) Then 'Si la feuille existe
With Sheets(NF) 'Avec cette feuille
Dte = DateSerial(Year(.Range("C7").Value), Month(.Range("C7").Value) + 1, 0) 'On construit la date du dernier jour du mois de C7
Lig = Application.Match(CLng(Dte), .Range("C1:C100"), 0) 'On repère la ligne du dernier jour
.Range("AH" & Lig & ":BC" & Lig).Copy 'On copie les données de AH à BC de cette ligne
.Range("AH6:BC6").PasteSpecial Paste:=xlPasteValues 'On les colle en valeur en ligne 6
.Range("D7:K37").ClearContents 'On efface les données de D7 à K37
End With
End If
Next i 'Fin boucle
End Sub