j’ai réussi de cette façon, enfin, je crois que c’est OK vu que cela fonctionne, aux pros de ce forum de bien vouloir me dire.
With Sheets("CDE")
If .Range("H10") <> 0# Then
Call SAUVEGARDE_MOUVEMENTS_COMMANDES_TVA_5_5
Else
Exit Sub
End If
If .Range("H11") <> 0# Then
Call SAUVEGARDE_MOUVEMENTS_COMMANDES_TVA_10
Else
End If
If .Range("H12") <> 0# Then
Call SAUVEGARDE_MOUVEMENTS_COMMANDES_TVA_20
Else
End If
With Worksheets("CDE")
If .Range("H10").Value <> 0 Then
Call SAUVEGARDE_MOUVEMENTS_COMMANDES_TVA_5_5
End If
If .Range("H11").Value <> 0 Then
Call SAUVEGARDE_MOUVEMENTS_COMMANDES_TVA_10
End If
If .Range("H12").Value <> 0 Then
Call SAUVEGARDE_MOUVEMENTS_COMMANDES_TVA_20
End If
End With
Ok, j’avais pas modifié ma réponse après mes essais. Cela fonctionne bien mais je vais aussi essayé ta proposition demain matin et je te tiendrai informé.