Private Sub CommandButton2_click()
Dim CHEMIN As String 'Attention à ta syntaxe br44 !
Dim Wb As Workbook
Dim F As String
F = MajSansAccent(ActiveSheet.Range('C3').Value)
CHEMIN = 'c:\mon chemin\'
Set Wb = Workbooks.Open(CHEMIN & 'ARCHIVES.XLS')
Workbooks('nom du classeur de sauvegarde').Sheets('retour').Cells.Copy déstination:= _
Workbooks('ARCHIVES.XLS').Sheets(F).Cells
End Sub
_____________________________________________________________________________________
Function MajSansAccent$(ByVal Chaine$)
'Auteur : Ti
'Lien XLD : Lien supprimé
Const VAccent = 'àáâãäåéêëèìíîïðòóôõöùúûü', VSsAccent = 'aaaaaaeeeeiiiioooooouuuu'
Dim Bcle&
If Len(Chaine) > 0 Then
For Bcle = 1 To Len(VAccent)
Chaine = Replace(Chaine, Mid(VAccent, Bcle, 1), Mid(VSsAccent, Bcle, 1))
Next Bcle
MajSansAccent = UCase(Chaine)
End If
End Function