Re,
Arf ! Je te dois un bière pour rattraper cette horrible erreur :
For i = 6 To Sheets(Sheets.Count)
Mais quel c... ! Le pire c'est qu'en relisant je ne m'en suis même pas rendu compte...
Tu as préféré utiliser des Select plutôt que la variable DEST. Je te le déconseille fortement. La règle d'or de VBA c'est justement d'éviter autant que se peut les Select et autres Activate.
Sub MajSynth()
Dim DEST As Range
Dim S As Worksheet
Dim i As Integer
Set S = Worksheets("Synthèse")
S.DrawingObjects.Delete
Set DEST = S.Range("B2")
For i = 6 To Sheets.Count
If Not Sheets(i).Name = "Synthèse" Then
Sheets(i).Range("B2:P21").CopyPicture
DEST.PasteSpecial
Set DEST = DEST.Offset(19, 0)
End If
Next i
End Sub
Merci pour le CopyPicture, je ne connaissais pas...
Sinon je pense qu'il doit y avoir une clôture mais je sais même pas où ça se trouve.moment...