Bonjour wall,
Il suffit d'indiquer, tout au bout à droite, la plage fusionnée complète :
Range("A6:F6,A11:D11,A16:D16,A21,A26:F26,A31:C31,A36:E36,A41:G41,A45:G45").ClearContents
Tu peux aussi ajouter des espaces pour améliorer la lisibilité :
Range("A6:F6, A11:D11, A16:D16, A21, A26:F26, A31:C31, A36:E36, A41:G41, A45:G45").ClearContents
ça permet de voir plus facilement les différentes plages, et on on voit aussi plus aisément que A21 est qu'une seule cellule ... mais peut-être que ça aurait dû être, par exemple : A21:D21 ou A21:F21 ?
dhany