Private Sub CommandButton1_Click()
Dim msg
msg = MsgBox("Bonjour " & Range("K3").Value & " " & Range("K4").Value & " " & Range("K5").Value & vbCr & "Cliquer sur OK pour continuer.", vbOKOnly + vbInformation, _
"DPES groupe " & Range("K6"))
If msg = vbOK Then
[COLOR="Red"] With Sheets("Feuil2")
.Select
.Range("A1").Select
End With[/COLOR]
End If
End Sub