Re : Copie dans d'autres feuilles + trialpha
Bonsoir, je te propose de modifier ton code comme ceci :
Private Sub valide_Click()
Sheets("Feuil1").Activate
If nom.Value = "" Then MsgBox " Veuillez inscrire le NOM": nom.SetFocus: Exit Sub
Range("B" & [B65000].End(xlUp).Row + 1) = nom.Value
Range("C" & [B65000].End(xlUp).Row) = prenom.Value
Range("B4:C" & [B65000].End(xlUp).Row).Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For i = 2 To 3
With Sheets(i)
.Range("B4:C" & [B65000].End(xlUp).Row).ClearContents
Selection.Copy Destination:=.[b4]
End With
Next i
Unload entree
End Sub
Bon courage