Re bonjour,
J'ai trouvé la solution... en tout cas la bonne syntaxe. A croire qu'on réfléchit mieux le ventre plein...
Il y a peut être plus simple mais là mes connaissance sont limitées.
La solution si ça peut aider qq'un :
Private Sub CommandButton1_Click()
Dim temp As Single
temp = Timer
Application.Calculation = xlManual
Const Données4 = "A1,A3,N5,N6,b6,N8,A13,M19,D15"
Const Données5 = "D5,M5,D6,D7,D8,J8,E38,K39,M41,E42,M42,A11,E41"
Dim tablo(12)
Dim t, i&, j
t = Split(Données4, ",")
For i = 0 To UBound(t)
tablo(i) = ActiveSheet.Range(t(i))
Next i
tablo(11) = [A10] & " : " & [Z10]
tablo(12) = "rédacteur"
p = Split(Données5, ",")
For j = 0 To UBound(p)
Sheets("Feuil2").Range(p(j)) = tablo(j)
Next j
MsgBox Timer - temp
Application.Calculation = xlAutomatic
End Sub
Bonne journée à tous;
Jack