Re : Macro à améliorer selon mon probléme
Bonjour,
J'ai fais comme ci dessous et ca a marcher, merci pour ton aide.
'If Mid(Left(Sheets(1).Cells(i, 14), 3), 3, 1) = "-" Then
'cel = Left(Sheets(1).Cells(i, 14), 2)
'Else
'cel = Left(Sheets(1).Cells(i, 14), 3)
'End If