For Each cell In Range("A8:A" & Range("A22").End(xlUp).Row)
If cell.Offset(, 10) <> 1 Then ' colonne K
Set MyItem = myOlApp.CreateItem(olAppointmentItem)
With MyItem
.MeetingStatus = olNonMeeting
.Subject = cell
.Start = cell.Offset(0, 1)
.Duration = cell.Offset(0, 2) 'minutes
.Location = cell.Offset(0, 3)
.Body = cell.Offset(0, 4)
.Save
.cell.Offset(, 10) = 1
End With
Set MyItem = Nothing
End If
Next cell