For a = 3 To 33
Cells(5, a).Value = IIf(a <> 33, Sheets(FNomDuMois$(i - 1)).Cells(f, a).Value, Sheets(FNomDuMois$(i - 1)).Cells(f - 1, a).Value)
If a = 33 Then
f = f - 1
End If
Next a
If Cells(4, 3).Value = "" Then
For a = 3 To 33
Cells(4, 4).Value = IIf(a <> 33, Sheets(FNomDuMois$(i - 1)).Cells(f, a).Value, Sheets(FNomDuMois$(i - 1)).Cells(f - 1, a).Value)
If a = 33 Then
f = f - 1
End If
Next a
End If