Bonjour forum

J'ai de la difficulté à réfléchir à ce qui ne peut pas aller avec ce code - ca sent déjà la crème solaire et le rhum - voilà, ca se passe bien seulement lorsque le worksheet est à la page "Calendrier" (je le vois en arrière plan) mais ca plante dès que ce n'est pas le cas.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Copier_plage_discontinue()
Dim Plage As Range
Dim F1 As Worksheet
Dim F2 As Worksheet
 
Set F1 = ThisWorkbook.Worksheets("Résultats")

Set F2 = ThisWorkbook.Worksheets("Calendrier")

' effacer la zone auparavant

F2.Range("C4:H175").Select  ' ca plante ici :select de la classe range échoue
Selection.ClearContents

With Selection.Interior
       .ColorIndex = 2   ' tout en blanc
       .Pattern = xlSolid   ' pas de motif
       .PatternColorIndex = xlAutomatic
End With

With F1
    Set Plage = Union(.Range("F1:H175"), .Range("J1:L175"))
    Plage.Copy Destination:=F2.Range("C4")
End With
F2.Range("A1").Select

End Sub
Merci à l'avance,

Bo