Suppression de cellule

[Laguich]

bonjour à tous,
voici mon probleme, je souhaite supprimé une cellule dans la feuille 2 mais en restant sur la feuille 1
Supprimer la cellule mais en remontant celle du dessous soit avec .delete shift:=xlup

Voici le code que j'ai commencé mais cela bloque apres le then " propriété de range a échoué"
Comment faire?
Merci

Sub Supmail()
Dim lRow As Long
Dim iCntr As Long
lRow = 20
choixbase = "Cherre" 'UserForm4.ComboBox1.Value
nombre = WorksheetFunction.CountIf(Range("A:A"), choixbase)
If nombre = 1 Then
      
    With Sheets(2)
   For iCntr = lRow To 2 Step -1
  
   If .Cells(iCntr, 22) = choixbase Then
  Sheets(2).Range("v" & iCntr).Delete Shift:=xlUp
  End If
Next
End With
Else
Exit Sub
End If

choixbase = ""
nombre = ""
  

End Sub

 

[Cousinhub]

Re : Suppression de cellule

Bonsoir,

Ainsi fait, ton code ne pose aucun problème.

Maintenant, si ton onglet (sheets(2)) est protégé, il se peut que tu aies ce problème.

Donc, sans fichier joint, avec un fichier qui reproduirait l'erreur, ça ne sera pas facile de t'aider plus....

Bon courage