Bonjour et bon appétit à toi David et au forum,
le problème, je pense, vient du fait que tu ne sélectionnes rien.
Tu écris "For Each vCellule In Selection"
Mais tu n'attribues rien à Selection.
A l'ouverture, il prendra par défaut la cellule A1, mais pas forcément pour la suite.
Ensuite tu modifies ta sélection à chaque Boucle de For, car avant d'écrire dans une cellule, tu écris
"Range("BXX:IXX").Select"
cela modifie "Selection" à chaque fois
si tu veux spécifier une seule cellule, tu écrits:
cells(1,1).select ( à personnaliser)
ou si tu veux spécifier une plage de données, tu écris:
Range("A1:A12").Select (idem)
essaie peut être ce code
j'espère que je suis clair (j'en doute, mais je n'ai pas trop saisi ce que tu voulais faire)
Cordialement
Patrick
-----------------------------------------
Sub ExecutExpertise()
Dim vCellule, vRéponse
'définition de la zone à sélectionner
Range("A1:B2").Select
For Each vCellule In Selection
If IsEmpty(vCellule) = True Then
vRéponse = MsgBox("Le véhicule a t'il été expertisé ?", vbYesNo + vbQuestion)
If vRéponse = vbYes Then
vRéponse = ActiveCell.FormulaR1C1 = "CABINET JR EXPERTISES"
Range("B29") = "12 RUE DES TILLEULS"
Range("F30") = "78960"
Range("G30") = "VOISINS LE BTX"
Else
vRéponse = ActiveCell.FormulaR1C1 = ""
Range("B29") = ""
Range("F30") = ""
Range("G30") = ""
End If
End If
Next
End Sub