Sub NewSheet()
Dim Sh As Worksheet, sh2 As Worksheet
Set Sh = Sheets("Accueil")
For Each sh2 In Worksheets
If sh2.Name = [F3] Then
sh2.Activate
If MsgBox("Notre client(e) " & [F3] & " est déjà enregistré." & vbCrLf & _
"Voulez-vous supprimer ce client?", vbYesNo, "Microsoft") = vbNo Then
Exit Sub
Else
Application.DisplayAlerts = False
sh2.Delete
Application.DisplayAlerts = True
Exit For
End If
End If
Next sh2
Sh.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = [F3]
If ActiveSheet.Name = [F3] Then
With ActiveSheet
nom = .Range("f3").Value
Set cel = Sheets("Data").Columns("A").Find(what:=nom)
If Not cel Is Nothing Then
.Range("c12") = cel.Offset(0, 1)
.Range("c13") = cel.Offset(0, 2)
.Range("f12") = cel.Offset(0, 3)
.Range("f13") = cel.Offset(0, 4) & " " & cel.Offset(0, 5)
.Range("i12") = cel.Offset(0, 6)
.Range("i13") = cel.Offset(0, 7)
.Range("l12") = cel.Offset(0, 8)
.Range("l13") = cel.Offset(0, 9)
.Range("f17") = .Range("l13")
.Range("b:l").ColumnWidth = 15
End If
End With
End If
End Sub