Bonjour,
Regarde dans ton USF tu as un Range("C9:O98").ClearContents
'On initialise la zone de résultats
Range("C9:O38").ClearContents
For i = 3 To fmr.Range("A" & Rows.Count).End(xlUp).Row - 1
If Month(fmr.Range("A" & i)) = Month(dte) Then
If Range("E98") <> "" Then
MsgBox "Le tableau es plein.", 16
End