'Envoie les informations vers la nouvelle feuille de ramassage
Wb5.Sheets("F.R.M").Range("F3").Value = RefClient.Value
Wb5.Sheets("F.R.M").Range("A4").Value = NomClient.Value
'Sauvegarde et ferme le classeur "Model"
[B][COLOR="Red"]Wb5.Save
Wb5.Close[/COLOR][/B]
'Dèfinit et affiche le message
MaVariable = InputBox("Tapez la refClient:")
If MaVariable = "" Then Exit Sub
'Boucle sur tout le classeur "Tournées"
For z = 1 To 3
'Dèfinit la varible x
Set x = Wb6.Sheets(z).Cells.Find(MaVariable, , xlValues, xlWhole, , , False)
'Si la RefClient Affichée dans le message est trouvé ,Alors copie est insert à l'endroit dèfinit
If Not x Is Nothing Then x.Offset(27, -5).Insert xlShiftDown, [B]Wb5.Sheets("F.R.M").Range("1:29").Copy[/B] MsgBox "La nouvelle feuille client est enregistrée"
Next z 'Sort de la boucle