Salut,
Je viens de tester chez moi et cela marche parfaitement.
Encore faut il que :
- Tu aies une feuille appelée R_analyse_croisée - Que WbFile représente une variablme de type WorkBook @+: Ju£i?n Pensez: Réponse acceptée
'Lors de l'absence des CA supression des 0
If manquant Then
With wbfile.Sheets("R_analyse_croisée")
.Range("I8:I9").ClearContents
.Range("I13:I14").ClearContents
.Range("I16:I17").ClearContents
.Range("I22:I23").ClearContents
.Range("I27:I28").ClearContents
.Range("I30:I31").ClearContents
.Range("I33:I34").ClearContents
.Range("I49:I50").ClearContents
End With
End If