bonjour

j'ai un drôle de souci

alors j'ai le code suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
sub conversion()
Dim rg As Excel.Range
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
For Each rg In Selection
If rg.Value = "LIV Date" Then
rg1.Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns , DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 5), TrailingMinusNumbers:=True
Else
MsgBox "veuillez renseigner la date de livraison"
Exit Sub
End If
next
end sub
donc le problème c'est que le msgbox est greffé à la boucle et je ne vois pas comment le faire sortir
par conséquent le msgbox se reproduit autant de fois que la boucle parcours le tableau

j'aimerai bien le faire afficher en une seule fois

voila merci d'avance