"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
.......