Sub Vider()
Dim i As Long, NF As String, Dte As Date, Lig As Long
For i = 1 To 100
NF = Format(i, "00")
If FeuilExist(NF) Then
With Sheets(NF)
Dte = DateSerial(Year(.Range("C7").Value), Month(.Range("C7").Value) + 1, 0)
Lig = Application.Match(CLng(Dte), .Range("C1:C100"), 0)
.Range("AH" & Lig & ":BC" & Lig).Copy
.Range("AH6:BC6").PasteSpecial Paste:=xlPasteValues
.Range("D7:K37").ClearContents
End With
End If
Next i
End Sub