Private Sub carte_click()
Range('start').Offset(Ligne, 0) = Ligne + 1
Range('start').Offset(Ligne, 1) = cics
Range('start').Offset(Ligne, 2) = cigrec
controle = MsgBox('Etes-vous sur du lieu ? ', vbYesNo, 'Contrôle')
Image2.Visible = True
If controle = vbNo Then
Range('start').Offset(Ligne, 1) = cics
Range('start').Offset(Ligne, 2) = cigrec
Else
dataclient.Show
Ligne = Ligne + 1
End If
End Sub