problème de Macro

[yann lucien]

Je souhaite utiliser une macro qui efface les couleurs, pour certaines cellules uniquement pas toutes les cellules de mon tableau comment faut-il faire ?

Voici la macro que j'utilise pour effacé les couleurs qui ne marche pas :


Sub effacercouleurs()
'
' Macro4 Macro
'

'
Range("G8:AK13:G15:AK20:G22:AK27:G29:AK34:G36:AK41:G43:AK48:G50:AK55:G57:AK62:G64:AK69:G71:AK76").Select
With Selection.Interior
.Pattern = xlNone

.TintAndShade = 0


End With
With Selection.Font


.ColorIndex = 1


End With




Range("K2").Select
End Sub

 

[fanfan38]

Bonjour
Range("G8:AK13,G15:AK20,G22:AK27,G29:AK34,G36:AK41,G43:AK48,G50:AK55,G57:AK62,G64:AK69,G71:AK76").Select

A+ François

 

[yann lucien]

Bonjour
Range("G8:AK13,G15:AK20,G22:AK27,G29:AK34,G36:AK41,G43:AK48,G50:AK55,G57:AK62,G64:AK69,G71:AK76").Select

A+ François

Bonsoir,
Merci beaucoup cela fonctionne très bien.