Bonsoir,
If Range('A1').Value = '' Then
Range('G10:N17').write 'vide'
Que signifie vide? tu veux effacer les données où tu veux ecrire le mot vide?
Si tu veux effacer:
If Range('A1').Value = '' Then
Range('G10:N17').select
selection.clear
End if
Sinon pour ecrire je donne ma langue au chat.
Bon courage