Sub RemplirActivité()
Dim shSource As Worksheet
Set shSource = Sheets("Découverte")
On Error GoTo FIN
With Sheets("Activité")
With .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row)(2)
If .Row > 10 Then
.Cells(1, 1) = shSource.Range("i4") & " " & shSource.Range("I5")
.Cells(1, 2) = shSource.Range("C17")
.Cells(1, 3) = Abs(shSource.Range("I14") = "" Or shSource.Range("L14") = "")
.Cells(1, 4) = Abs(shSource.Range("Q2") <> "")
.Cells(1, 5) = Array("", "RDV")(Abs(.Cells(1, 4) = 1))
End If
End With
End With
FIN:
If Err.Number = 0 Then
MsgBox "la ligne Activité correspondate a été créée", vbInformation, "RemplirActivité"
Else
MsgBox "une erreur est survenue lors de la création de la ligne Activité" _
& vbCrLf & "Veuillez vérifier manuellement" _
& vbCrLf & vbCrLf & "Erreur: " & Err.Number _
& vbCrLf & "Description: " & Err.Description, vbExclamation, "RemplirActivité"
End If
End Sub