Private Sub CommandButton1_Click()
Dim Lang1 As String, Lang2 As String, sh As Worksheet
If OptionButton1 + OptionButton2 = 0 Then
MsgBox "Veuillez choisir une langue !", vbOKOnly + vbExclamation, "LANGUE"
Exit Sub
End If
Lang1 = IIf(OptionButton1 = True, "fr", "eng")
Lang2 = IIf(OptionButton1 = True, "eng", "fr")
For Each sh In Sheets
If sh.Name Like "*" & Lang1 & "*" Then sh.Visible = True
If sh.Name Like "*" & Lang2 & "*" Then sh.Visible = False
Next
Unload Me
End Sub