Bonjour
Testé sur 2003 : Pas de plantage
Modifies cette partie
If Possible = True Then
Cells(LigneEnCours, 12) = MaMission.NbrMois
Cells(LigneEnCours, 13) = MaMission.NbrJours
Cells(LigneEnCours, 14) = CumulOrganisme + CumulProtege
Cells(LigneEnCours, 15) = CumulProtege
Cells(LigneEnCours, 16) = CumulOrganisme
Cells(LigneEnCours, 16).NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)"
Cells(LigneEnCours, 17) = MaMission.Financeur
Else
'If Possible = False Then
Cells(LigneEnCours, 12).Resize(1, 6).ClearContents
' Cells(LigneEnCours, 12) = ""
' Cells(LigneEnCours, 13) = ""
' Cells(LigneEnCours, 14) = ""
' Cells(LigneEnCours, 15) = ""
' Cells(LigneEnCours, 16) = ""
' Cells(LigneEnCours, 17) = ""
End If
Testé avec 2010 : Pas de plantage