forget the question about the "end"
I run this macro, but it indicates an error on the
Sheets(Range("A" & i)).Select
That I was finding so brilliant... :-(

"cucchiaino" a écrit dans le message de
...
"Marie Lavoie" ha scritto nel messaggio
...
Am I using the "elseif" like i should?

If Range("A" & i) = "CLS" Then Sheets("CLS").Select ' On sélectionne la
Feuille CLS
ElseIf Range("A" & i) = "CLU" Then Sheets("CLU").Select ' On sélectionne
la
Feuille CLU
ElseIf Range("A" & i) = "PLC" Then Sheets("PLC").Select ' On sélectionne
la
Feuille PLC
ElseIf Range("A" & i) = "SBCC" Then Sheets("SBCC").Select ' On
sélectionne
la Feuille SBCC
ElseIf Range("A" & i) = "SBCE" Then Sheets("SBCE").Select ' On
sélectionne
la Feuille SBCE
ElseIf Range("A" & i) = "VAG" Then Sheets("VAG").Select ' On sélectionne
la
Feuille VAG
ElseIf Range("A" & i) = "VCL" Then Sheets("VCL").Select ' On sélectionne
la
Feuille VCL
ElseIf Range("A" & i) = "VJR" Then Sheets("VJR").Select ' On sélectionne
la
Feuille VJR
Else
Sheets("Principale").Select
Range("D1").FormulaR1C1 = "Erreur dans la copie des donnees"
End
End If


.....
Select Case Range("A" & i)
Case "CLS", "CLU", "PLC", "SBCC", "SBCE", "VAG", "VCL", "VJR"
Sheets(Range("A" & i)).Select

Case Else
Sheets("Principale").Select
Range("D1").FormulaR1C1 = "Erreur dans la copie des donnees"
End Select
......